# Stolen from Mark Dominus
# http://blog.plover.com/oops/triangular-phi.html

sub factor {
    my $r = qx{factor $_[0]};
    my @f = split /\s+/, $r;
    shift @f;
    return @f;
}

1;

                                                        